perm filename T0.UCO[S1,ALS] blob
sn#422805 filedate 1979-03-05 generic text, type T, neo UTF8
UNK 0 0 TON PCODE
UNK 0 0 TON S1CODE A
BGN 1 0 0
UNK 0 0 SST P $MAINBLK 1 0 0 0 0
UNK 0 0 SST P $GENCOMM 2 0 0 0 0
UNK 0 0 SST P $FORVARS 3 0 0 0 0
COMM ***
COMM *** COMMON /AAA/A(3),B
COMM *** A(1)=2.
UNK 0 0 SST P $FORMAIN 4 0 0 0 0
$FORMAIN ENT P 4 74 0 0 $FORMAIN 1 1 1
LEX 1 71
LEX 2 72
LEX 3 73
MST 4 0 0
CUP P 75 $INIX075 0 0 1
MST 4 0 0
CUP P 31 FILEI031 0 0 1
LDA M 72 8 12
LDC I 1
DEC I 1
IXA 4
LDC R 2.0
STO R 0 4
COMM *** A(2)=3.
LDA M 72 8 12
LDC I 2
DEC I 1
IXA 4
LDC R 3.0
STO R 0 4
COMM *** A(3)=4.
LDA M 72 8 12
LDC I 3
DEC I 1
IXA 4
LDC R 4.0
STO R 0 4
COMM *** B=7.
LDC R 7.0
STR R M 72 20 4
COMM *** CALL SUB1
MST 4 0 0
CUP P 76 SUB10076 0 0 1
COMM *** STOP
RET
COMM *** END
COMM *** BLOCK DATA ZZZ
COMM *** ..A .. 2 8
COMM *** ..B .. 2 20
COMM *** ..SUB1 .. 4 0
RET
DEF M 8
END $FORMAIN
COMM *** COMMON /AREA1/C,D/AREA2/E,F
COMM *** DATA C,D,E,F/10.,11.,12.,13./
COMM *** END
COMM ***
COMM *** SUBROUTINE SUB1
COMM *** ..C .. 2 24
COMM *** ..D .. 2 28
COMM *** ..E .. 2 32
COMM *** ..F .. 2 36
COMM *** COMMON /AAA/U(3),V
COMM *** COMMON /AREA1/Z1,Z2/AREA2/Z3,Z4
COMM *** WRITE(0,10) V
UNK 0 0 SST P SUB10076 4 0 0 0 0
SUB10076 ENT P 4 76 0 0 SUB10076 1 1 1
LEX 1 71
LEX 2 72
LEX 3 73
MST 4 8 8
LDC I 0
PAR I
LOD A M 73 520 4
PAR A
CUP P 25 WRITI025 2 0 5
MST 4 12 12
LDA M 72 20 4
PAR A
LDC I 4
PAR I
LDC I 1
PAR I
CUP P 27 WRITV027 3 0 7
MST 4 4 4
LDA M 3 496 4
PAR A
CUP P 26 WRITT026 1 0 3
LOD I M 73 496 4
LDC I 0
NEQ I 4
FJP L1
LDA M 71 13 1
CSP A SIO 1 1
LCA 'EXECUTION ERROR: ERROR IN READ/WRITE AT LINE '
LDC I 63
LDC I 63
CSP A WRS 4 1
LDC I 25
LDC I 7
CSP A WRI 3 1
CSP A WLN 1 1
CSP P EIO 1 0
LDC I 0
CSP P XIT 1 0
L1 LAB 0
COMM *** WRITE(0,20) Z4
MST 4 8 8
LDC I 0
PAR I
LOD A M 73 524 4
PAR A
CUP P 25 WRITI025 2 0 5
MST 4 12 12
LDA M 72 36 4
PAR A
LDC I 4
PAR I
LDC I 1
PAR I
CUP P 27 WRITV027 3 0 7
MST 4 4 4
LDA M 3 496 4
PAR A
CUP P 26 WRITT026 1 0 3
LOD I M 73 496 4
LDC I 0
NEQ I 4
FJP L2
LDA M 71 13 1
CSP A SIO 1 1
LCA 'EXECUTION ERROR: ERROR IN READ/WRITE AT LINE '
LDC I 63
LDC I 63
CSP A WRS 4 1
LDC I 26
LDC I 7
CSP A WRI 3 1
CSP A WLN 1 1
CSP P EIO 1 0
LDC I 0
CSP P XIT 1 0
L2 LAB 0
COMM *** 10 FORMAT(1X,41HTHE FOURTH ELEMENT OF BLANK COMMON(=7.0)=,F10.4)
COMM *** 20 FORMAT(1X,42H2ND ELEMENT OF COMMON REGION AREA2(=13.0)=,F10.4)
COMM *** RETURN
RET
COMM *** END
COMM ***
RET
DEF M 8
END SUB10076
COMM *** ..SUB1 .. 4 0
COMM *** ..U .. 2 8
COMM *** ..V .. 2 20
COMM *** ..Z1 .. 2 24
COMM *** ..Z2 .. 2 28
COMM *** ..Z3 .. 2 32
COMM *** ..Z4 .. 2 36
COMM *** ..10 .. 3 520
COMM *** ..20 .. 3 524
COMM *** INITIALIZATION 10.
COMM *** INITIALIZATION 11.
COMM *** INITIALIZATION 12.
COMM *** INITIALIZATION 13.
UNK 0 0 SST P $INIX075 4 0 0 0 0
$INIX075 ENT P 4 75 0 0 $INIX075 1 1 1
LEX 1 71
LEX 2 72
LEX 3 73
LDC R 10.0
STR R M 72 24 4
LDC R 11.0
STR R M 72 28 4
LDC R 12.0
STR R M 72 32 4
LDC R 13.0
STR R M 72 36 4
LDA M 73 528 64
LCA '(1X,41HTHE FOURTH ELEMENT OF BLANK COMMON(=7.0)=,F10.4) '
MOV 64
LDA M 73 528 64
STR A M 73 520 4
LDA M 73 592 64
LCA '(1X,42H2ND ELEMENT OF COMMON REGION AREA2(=13.0)=,F10.4) '
MOV 64
LDA M 73 592 64
STR A M 73 524 4
RET
DEF M 8
END $INIX075
$FORVARS ENT P 3 73 0 0 $FORVARS 1 1 1
LEX 1 71
LEX 2 72
MST 4 0 0
CUP P 74 $FORMAIN 0 0 0
RET
DEF M 656
END $FORVARS
$GENCOMM ENT P 2 72 0 0 $GENCOMM 1 1 1
LEX 1 71
MST 3 0 0
CUP P 73 $FORVARS 0 0 0
RET
DEF M 40
END $GENCOMM
$MAINBLK ENT P 1 71 0 0 $MAINBLK 1 1 1
MST 2 0 0
CUP P 72 $GENCOMM 0 0 0
RET
DEF M 44
END $MAINBLK
STP